home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Item MB Quick & Easy 2.0
/
Item MB Quick & Easy 2.0.iso
/
mbfacad
/
mb41685.lsp
< prev
next >
Wrap
Text File
|
1998-03-15
|
2KB
|
70 lines
;=============415.81 HANDGRIFF Al 200
(EAITDBL "0041685")
(EAITmsg "mb_mld10" "\n" "002" nil) (princ "........") (princ EAITnrx) (princ "\n")
(princ)
(defun C:0041685B (/ P1 P0 R Wi)
(EAITDBL "0041685")
(princ (strcat "\n\n" EAITbez1))
(EAITvari)
(EAITvars)
(setvar "ORTHOMODE" 0)
(EAITbpt EAITofmit 2 nil)
(setq P1 (getpoint))
(if (= P1 nil)(setq P1 (EAITrpt)))
(EAITmsg "mb_mld10" "\n" "024" nil)(EAITmsg "mb_mld10" " " "028" " ") ;Versatz: <50>
(setq R (getreal))
(if (= R nil)(setq R 50))
(setvar "ORTHOMODE" 1)
(setvar "OSMODE" 0)
(initget 1)
(EAITmsg "mb_mld10" nil "008" nil) ;Konstruktionsrichtung
(setq Wi (getangle P1))
(setq P0 (polar P1 Wi R))
(setvar "OSMODE" 0)
(setvar "ORTHOMODE" 0)
(command EAITege (strcat EAITpfn "0041685B") P0 "" "" (EAITbig Wi))
(command EAITege (strcat EAITpfn "EAITinfo") (polar P0 (+ (EAITbw) (EAITgib 90)) 30) "" "" ""
EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 (rtos EAITl1 2 1) (rtos EAITb1 2 1) EAITnr
)
(EAITvarz2)
(princ)
)
(defun C:0041685C (/ P1 P0 R Wi)
(EAITDBL "0041685")
(princ (strcat "\n\n" EAITbez1))
(EAITvari)
(EAITvars)
(setvar "ORTHOMODE" 0)
(EAITbpt EAITofmit 2 nil)
(setq P1 (getpoint))
(if (= P1 nil)(setq P1 (EAITrpt)))
(EAITmsg "mb_mld10" "\n" "024" nil)(EAITmsg "mb_mld10" " " "028" " ") ;Versatz: <50>
(setq R (getreal))
(if (= R nil)(setq R 50))
(setvar "ORTHOMODE" 1)
(setvar "OSMODE" 0)
(initget 1)
(EAITmsg "mb_mld10" nil "008" nil) ;Konstruktionsrichtung
(setq Wi (getangle P1))
(setq P0 (polar P1 Wi R))
(setvar "OSMODE" 0)
(setvar "ORTHOMODE" 1)
(EAITmsg "mb_mld10" "\n" "003" nil) ;Drehwinkel
(command EAITege (strcat EAITpfn "0041685C") P0 "" "" EAITofkei pause)
(command EAITege (strcat EAITpfn "EAITinfo") (polar P0 (+ (EAITbw)(EAITgib 0)) 30) "" "" ""
EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 (rtos EAITl1 2 1) (rtos EAITb1 2 1) EAITnr
)
(EAITvarz2)
(princ)
)
(princ)